(widget-echo-help): Make it handle expressions that evaluate to

strings.

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index ff65fb56e599bd4bb93ae0c9b4d9a458ab3f6151..f1287e43e50181c4d9144110c3da8c06cdebd1c5 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -3485,8 +3485,7 @@ To use this type, you must define :match or :match-alternatives."
         (help-echo (and widget (widget-get widget :help-echo))))
     (if (functionp help-echo)
        (setq help-echo (funcall help-echo widget)))
-    (if (stringp help-echo)
-       (message "%s" help-echo))))
+    (if help-echo (message "%s" (eval help-echo)))))
 
 ;;; The End: